home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / gfa / procdure.lzh / 8WAY_STK.LST < prev    next >
Encoding:
File List  |  1995-01-29  |  152 b   |  7 lines
  1. PROCEDURE 8way_stick(VAR x%,y%)
  2.   LOCAL xa%
  3.   xa%=STICK(1)
  4.   x%=x%+((xa% AND 4)=4)-((xa% AND 8)=8)
  5.   y%=y%+((xa% AND 1)=1)-((xa% AND 2)=2)
  6. RETURN
  7.